home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / HTML Markup 3.0 ƒ / markup.pl < prev   
Encoding:
Text File  |  1999-07-25  |  3.0 KB  |  188 lines
  1. # markup.pl
  2. # ---------
  3. # Perl functions for HTML Markup 3.0
  4. # 
  5. # History
  6. # 1.0 by klep (klep@cs.stanford.edu) on 5/12/99
  7. # 1.1 by klep (klep@cs.stanford.edu) on 7/25/99
  8. #
  9. # You may NOT distribute modified versions of this file with the HTML
  10. # Markup distribution. Send them to <klephacks@kagi.com> or distribute
  11. # them separate from the rest of HTML Markup.
  12. #
  13. # Modify this file at your own risk. Do not change any function names
  14. # or parameters.
  15.  
  16.  
  17.  
  18.  
  19. # Conversion
  20.  
  21. sub ltgttobrackets {
  22.     my($input) = @_;
  23.     
  24.     $input =~ s/</</gs;
  25.     $input =~ s/>/>/gs;
  26.     
  27.     return $input;
  28. }
  29.  
  30.  
  31. # URL Recognition
  32.  
  33. sub convert_url {
  34.     my($input, $scheme) = @_;
  35.     my($output) = "";
  36.  
  37.     while ($input =~ m"(.*?)$scheme([A-Za-z0-9./]*)"is)
  38.     {
  39.         $output = $output . "$1<a href=\"$scheme$2\">$scheme$2</a>";
  40.         $input = $';  #'
  41.     }
  42.  
  43.     return $output . $input;
  44. }
  45.  
  46. sub http {
  47.     my($input) = @_;
  48.  
  49.     my($output) = convert_url($input, "http://");
  50.     return convert_url($output, "https://");
  51. }
  52.  
  53. sub ftp {
  54.     my($input) = @_;
  55.     
  56.     return convert_url($input, "ftp://");
  57. }
  58.  
  59. sub news {
  60.     my($input) = @_;
  61.     
  62.     return convert_url($input, "news:");
  63. }
  64.  
  65. sub mailto {
  66.     my($input) = @_;
  67.     
  68.     return convert_url($input, "mailto:");
  69. }
  70.  
  71. sub email {
  72.     my($input) = @_;
  73.     my($output) = "";
  74.     
  75.     while ($input =~ m"([A-Za-z0-9.]*?)\@([A-Za-z0-9.]*)"is)
  76.     {
  77.         $output = $output . $` . "<a href=\"mailto:$1\@$2\">$1\@$2</a>";   #`
  78.         $input = $';   #'
  79.     }
  80.     
  81.     return $output . $input;
  82. }
  83.  
  84.  
  85. # Source Document
  86.  
  87. sub makehtml {
  88.     my($input, $headparams, $bodyparams, $tophtml) = @_;
  89.     
  90.     return "<HTML>\r\t<HEAD>\r\t\t$headparams\r\t</HEAD>\r<BODY $bodyparams>\r$tophtml\r" . "$input" . "\r</BODY>\r</HTML>";
  91. }
  92.  
  93.  
  94. # Line Breaks
  95.  
  96. sub endlinesbr {
  97.     my($input) = @_;
  98.     
  99.     $input =~ s/\r/<BR>\r/gs;
  100.     $input =~ s/\n/<BR>\n/gs;
  101.     
  102.     return $input;
  103. }
  104.  
  105. sub endlinesp {
  106.     my($input) = @_;
  107.     
  108.     $input =~ s/\r/<P>\r/gs;
  109.     $input =~ s/\n/<P>\n/gs;
  110.     
  111.     return $input;
  112. }
  113.  
  114.  
  115. # Misc
  116.  
  117. sub linesdashed {
  118.     my($input, $length, $thickness) = @_;
  119.     
  120.     $input =~ s/\r\n(-){3,}\r\n/\r\n<HR width=$length size=$thickness>\r\n/gs;
  121.     $input =~ s/\r(-){3,}\r/\r<HR width=$length size=$thickness>\r/gs;
  122.     $input =~ s/\n(-){3,}\n/\n<HR width=$length size=$thickness>\n/gs;
  123.     
  124.     return $input;
  125. }
  126.  
  127. sub linescapital {
  128.     my($input, $size) = @_;
  129.  
  130.     $rest = $input;
  131.     while ($rest ne "") {
  132.         ($line, $rest) = ExtractOneLine($rest);
  133.         if (AllCaps($line)) {
  134.             $line = "<H$size>" . ConvertCase($line) . "</H$size>";
  135.         }
  136.         $output = $output . $line . "\r";
  137.     }
  138.     
  139.     return $output;
  140. }
  141.  
  142.  
  143. # Utilities
  144.  
  145. sub GetOneLine {
  146.     my($input) = @_;
  147.     
  148.     if ( $input =~ m/(.*?)[\r\n]/ ) {
  149.         return $1;
  150.     }
  151.     return $input;        # only one line long
  152. }
  153.  
  154. sub ExtractOneLine {
  155.     my($input) = @_;
  156.     
  157.     if ( $input =~ m/(.*?)\r/ ) {
  158.         return ($1, $');  #'
  159.     }
  160.     return $input;
  161. }
  162.  
  163. sub AllCaps {
  164.     my($input) = @_;
  165.     
  166.     if ( $input =~ m/(.*)[a-z](.*)/ ) {        # must contain no lower case letters
  167.         return 0;
  168.     }
  169.     if ( $input =~ m/(.*)[A-Z](.*)/ ) {        # must contain at least one letter
  170.         return 1;
  171.     }
  172.     return 0;
  173. }
  174.  
  175. sub ConvertCase {
  176.     my($input) = @_;
  177.     
  178.     $input =~ tr/A-Z/a-z/;
  179.     
  180.     return $input;
  181. }
  182.  
  183. sub Quote {
  184.     return "\"";
  185. }
  186.  
  187. 1;
  188.